<!--#include file="Hr_Inc.asp" -->
<!--#include virtual="/common/Cls_Page.asp" -->
<%
If Request.ServerVariables ("Request_Method")="POST" Then
	Service_Status		= Reform("Service_Status") 
	Service_Item		= Reform("Service_Item")
Else
	Service_Status		= Requery("Service_Status") 
	Service_Item		= Requery("Service_Item")
End If 
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Content-Language" content="zh-cn" />
<meta name="robots" content="all" />
<meta name="author" content="963123.com" />
<meta name="Copyright" content="Copyright (c) 2010 963123.com" />
<meta name="Description" content="海南家政信息服务平台" />
<meta name="Keywords" content="海南家政网,家政,家教,家庭服务,保洁,保姆,护理,钟点工,海南旅游,海南美食,生活,生活服务" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<title>人才_海南家政信息服务请拔963123_家政_海南家政信息服务平台</title>
<link href="/skin/lafot/hrview.css" rel="stylesheet" type="text/css" media="screen" />
<script src="javascript/hr.js" type="text/javascript"></script>
</head>
<body>
<!--#include Virtual="/include/head.asp" -->
<!--E:Header-->
<div id="current">
  <div class="m">
    <p class="idata tl">您的当前位置：<a href="/"><strong>首页</strong></a> > <a href="/hr/">人才</a> > 海南省家政人力资源库</p>
  </div>
</div>
<div id="content">

  <div class="m">
  	 <!--S:UN-LIST-TAG-->
    <div class="un-list-tag">
        <form id="form_search" name="form_search" action="hr_list.asp" method="post">
        <ul>
            <li><label>服务状态：</label>
			<% Call Service_Status_List(Service_Status) %>
			<!-- <a href="#" class="active">不限</a> <a href="#">待安排</a> <a href="#">已安排</a> -->
			</li>
            <li><label>服务工种：</label><% Call Service_Item_List(Service_Item)%><!--  <a href="#" class="active">不限</a> <a href="#">保姆</a> <a href="#">月嫂</a> <a href="#">钟点工</a> <a href="#">家教</a> <a href="#">产妇护理</a> <a href="#">病人护理</a> <a href="#">婴儿看护</a> <a href="#">水电工</a> --></li>
        </ul>
		<input name="Service_Status" type="hidden" value="<%=Service_Status%>" />
		<input name="Service_Item" type="hidden" value="<%=Service_Item%>" />

        </form>	
    </div>
	<!--E:UN-LIST-TAG-->
    <div id="un-list-con">
    	<div class="un-list-l">
			<%	

			Dim Ors		
			Set Ors = New Class_Page

			Sql = " 1=1 "

			Sql = EqualSql("Service_Status",Service_Status,Sql)
			If Service_Item<>"" Then 
				Sql = Sql &" AND UserName IN (SELECT DISTINCT UserName FROM Member_Person_Service_Item WHERE Service_Item_ID="& Service_Item&")"
			End If 

			'Table 查询的表或是视图
			Ors.Table="Member_Person_QZ"

			'Field SQL语句SELECT数据库的字段
			Ors.Field="ID,Photo,Truename,Location,Service_Corp,UserName"
			'Pkey主键
			Ors.Pkey="ID"

			'OrderBy 排序字段


			Ors.OrderBy="Update_Date DESC"

			Ors.PageSize=12 '每页记录数

			'Condition 使用的条件，Tt_Title_Sql.....等等
			Ors.Condition=sql

			'PostString Tt_Title表单POST过来的值进行传递，该处适用POST和GET
			Ors.PostString = "Service_Item|Service_Status"

			RecCount = Ors.RecCount() '记录总数
			Array_List = Ors.ResultSet() '返回ResultSet

			If RecCount>0 Then
			%>
        	<h2>共有<%=RecCount%>个人力资源</h2>
            <div class="hruninos">
            	<ul>
					<% 

					For i=0 To UBound(Array_List,2)
						HR_ID		= Array_List(0,i)
						Photo		= Array_List(1,i)
						Truename	= Array_List(2,i)
						Location	= Array_List(3,i) 
						Service_Corp= Array_List(4,i)
						UserName	= Array_List(5,i)

						detail_url	= "detail.asp?HR_ID="&HR_ID
						Service_Item_S = Get_Service_Item(UserName)
					%>
                	<li>
                    	<p class="unimg"><a href="<%=detail_url%>"><img src="<%=Photo%>" width=80 height=80 /></a></p>
                        
                        <div class="uninfo">
                        <h3><a href="<%=detail_url%>"><%=Truename%></a></h3>
                        <p><%=Service_Corp%></p>
                        <p>籍贯：<%=Location%></p>
                        <p>工种：<%=Service_Item_S%></p>
                        </div>

                    </li>
					<%
					Next
					%>
                    
                </ul>
            </div>
            <!--S:UNION-->
			<% If Ors.PageCount()>1 Then %>
            <div class="pages tc">
            <% Call Ors.ShowPage4() %>
            </div>
			<% End If %>
			<% End If %>
            <!-- S:PAGES -->
        </div>
       
    </div>
    <!--E:UN-LIST-CON-->
  </div>
</div>
<!--E:Content-->
<!--#include Virtual="/include/bottom.asp" -->
</body>
</html>
<%
Sub Service_Status_List(Service_Status)
	Service_Status_value  = ",在职,待业"
	Service_Status_Option = "不限,待安排,已安排"
	
	Service_Status_value_Array  = Split(Service_Status_value,",")
	Service_Status_Option_Array = Split(Service_Status_Option,",")

	For i=0  To UBound(Service_Status_value_Array)
		If Service_Status_value_Array(i)=Service_Status Then 
			
			Response.Write "<a href=""#"" class=""active"">"&Service_Status_Option_Array(i)&"</a> "
		Else
			Response.Write "<a href=""#""  onclick=""Hr_Search('"&Service_Status_value_Array(i)&"','1')"">"&Service_Status_Option_Array(i)&"</a> "			
		End If
	Next

End Sub 
Sub Service_Item_List(Service_Item)
	If Service_Item="" Or IsNumeric(Service_Item)=False Then 
		Response.Write "<a class=""active"">不限</a> "
	Else
		Response.Write "<a onclick=""Hr_Search('','2')"">不限</a>"			
	End If 
	Sql = "SELECT dsi_id,dsi_name FROM uvw_dic_item  WHERE di_name='家政人才服务项目'" 
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 
	For i=0  To UBound(Array_List,2)
		If CStr(Array_List(0,i))=CStr(Service_Item) Then 
			Response.Write "<a class=""active"">"&Array_List(1,i)&"</a> "
		Else
			Response.Write "<a onclick=""Hr_Search('"&Array_List(0,i)&"','2')"">"&Array_List(1,i)&"</a>"			
		End If
	Next
	End If 

End Sub 
%>